/ Mac Power 1997 January / macpower199701.bin / AMUG / Utilities_48 / TouchMe 1.1.1.sit / touchMe 1.11 Folder / scripts / sample 6

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 73 61 6d 70 6c 65 | 20 36 00 00 00 00 00 00 |..sample| 6......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 54 6f 79 | 53 01 00 00 00 00 00 00 |.TEXTToy|S.......|
|00000050| 00 00 00 00 00 06 f1 00 | 00 01 4a ae 2f 89 20 ae |........|..J./. .|
|00000060| 2f 89 20 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |/. .....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 24 56 00 00 |........|....$V..|
|00000080| 2d 2d 20 53 61 6d 70 6c | 65 20 41 70 70 6c 65 53 |-- Sampl|e AppleS|
|00000090| 63 72 69 70 74 73 20 66 | 6f 72 20 74 6f 75 63 68 |cripts f|or touch|
|000000a0| 4d 65 2c 20 31 39 39 36 | 20 28 43 29 20 4d 69 7a |Me, 1996| (C) Miz|
|000000b0| 75 74 6f 72 69 20 54 65 | 74 73 75 79 61 0d 2d 2d |utori Te|tsuya.--|
|000000c0| 20 41 20 64 72 6f 70 6c | 65 74 20 74 6f 20 63 68 | A dropl|et to ch|
|000000d0| 61 6e 67 65 20 74 68 65 | 20 64 61 74 65 20 74 69 |ange the| date ti|
|000000e0| 6d 65 20 73 74 61 6d 70 | 20 6f 66 20 65 76 65 72 |me stamp| of ever|
|000000f0| 79 20 66 69 6c 65 20 7b | 69 6e 20 74 68 65 20 67 |y file {|in the g|
|00000100| 69 76 65 6e 20 66 6f 6c | 64 65 72 28 73 29 7d 0d |iven fol|der(s)}.|
|00000110| 2d 2d 20 74 68 61 74 20 | 63 6f 70 69 65 73 20 69 |-- that |copies i|
|00000120| 74 73 20 63 72 65 61 74 | 69 6f 6e 20 64 61 74 65 |ts creat|ion date|
|00000130| 20 74 6f 20 74 68 65 20 | 6d 6f 64 69 66 69 63 61 | to the |modifica|
|00000140| 74 69 6f 6e 20 64 61 74 | 65 20 62 79 20 66 69 6c |tion dat|e by fil|
|00000150| 65 2d 62 79 2d 66 69 6c | 65 2e 0d 2d 2d 20 48 6f |e-by-fil|e..-- Ho|
|00000160| 77 20 74 6f 20 63 6f 6d | 70 69 6c 65 20 74 68 69 |w to com|pile thi|
|00000170| 73 20 41 70 70 6c 65 53 | 63 72 69 70 74 3a 20 65 |s AppleS|cript: e|
|00000180| 78 65 63 75 74 65 20 22 | 53 61 76 65 20 41 73 20 |xecute "|Save As |
|00000190| 52 75 6e 2d 4f 6e 6c 79 | 2e 2e 2e 22 20 63 6f 6d |Run-Only|..." com|
|000001a0| 6d 61 6e 64 21 0d 2d 2d | 20 55 73 61 67 65 31 3a |mand!.--| Usage1:|
|000001b0| 20 52 75 6e 20 74 68 69 | 73 20 64 72 6f 70 6c 65 | Run thi|s drople|
|000001c0| 74 20 74 6f 20 73 65 6c | 65 63 74 20 61 20 74 61 |t to sel|ect a ta|
|000001d0| 72 67 65 74 20 66 6f 6c | 64 65 72 20 69 6e 20 74 |rget fol|der in t|
|000001e0| 68 65 20 70 72 6f 6d 70 | 74 20 64 69 61 6c 6f 67 |he promp|t dialog|
|000001f0| 2e 0d 2d 2d 20 55 73 61 | 67 65 32 3a 20 44 72 61 |..-- Usa|ge2: Dra|
|00000200| 67 20 26 20 64 72 6f 70 | 20 74 68 65 20 74 61 72 |g & drop| the tar|
|00000210| 67 65 74 20 66 6f 6c 64 | 65 72 73 20 28 6f 72 20 |get fold|ers (or |
|00000220| 66 69 6c 65 73 29 20 6f | 6e 74 6f 20 74 68 69 73 |files) o|nto this|
|00000230| 20 64 72 6f 70 6c 65 74 | 20 69 63 6f 6e 2e 0d 0d | droplet| icon...|
|00000240| 2d 2d 20 54 68 61 6e 6b | 73 20 74 6f 20 4a 69 6d |-- Thank|s to Jim|
|00000250| 20 76 61 6e 20 5a 65 65 | 20 66 6f 72 20 65 6e 63 | van Zee| for enc|
|00000260| 6f 75 72 61 67 69 6e 67 | 20 6d 65 20 74 6f 20 77 |ouraging| me to w|
|00000270| 72 69 74 65 20 74 68 69 | 73 20 77 6f 6e 64 65 72 |rite thi|s wonder|
|00000280| 66 75 6c 20 73 63 72 69 | 70 74 2e 0d 2d 2d 20 54 |ful scri|pt..-- T|
|00000290| 68 65 20 4d 61 63 69 6e | 74 6f 73 68 20 74 61 72 |he Macin|tosh tar|
|000002a0| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 20 22 73 75 | applica|tion "su|
|000002b0| 6e 74 61 72 20 32 2e 30 | 2e 34 22 20 68 61 73 20 |ntar 2.0|.4" has |
|000002c0| 61 6e 20 6f 70 74 69 6f | 6e 61 6c 20 73 77 69 74 |an optio|nal swit|
|000002d0| 63 68 0d 2d 2d 20 74 6f | 20 70 72 65 73 65 72 76 |ch.-- to| preserv|
|000002e0| 65 20 74 68 65 20 6d 6f | 64 69 66 69 63 61 74 69 |e the mo|dificati|
|000002f0| 6f 6e 20 64 61 74 65 2c | 20 6f 72 20 6e 6f 74 2c |on date,| or not,|
|00000300| 20 77 68 65 6e 20 65 78 | 74 72 61 63 74 69 6e 67 | when ex|tracting|
|00000310| 20 61 20 74 61 72 20 66 | 69 6c 65 2e 0d 2d 2d 20 | a tar f|ile..-- |
|00000320| 41 66 74 65 72 20 65 78 | 74 72 61 63 74 69 6e 67 |After ex|tracting|
|00000330| 20 74 68 65 20 66 69 6c | 65 73 2c 20 68 61 76 65 | the fil|es, have|
|00000340| 6e 27 74 20 79 6f 75 20 | 65 76 65 72 20 63 68 61 |n't you |ever cha|
|00000350| 6e 67 65 64 20 79 6f 75 | 72 20 6d 69 6e 64 20 69 |nged you|r mind i|
|00000360| 6e 20 61 6e 6f 74 68 65 | 72 0d 2d 2d 20 77 61 79 |n anothe|r.-- way|
|00000370| 20 74 68 65 20 6d 6f 64 | 69 66 69 63 61 74 69 6f | the mod|ificatio|
|00000380| 6e 20 64 61 74 65 20 73 | 68 6f 75 6c 64 20 62 65 |n date s|hould be|
|00000390| 3f 20 54 68 69 73 20 73 | 61 6d 70 6c 65 20 73 63 |? This s|ample sc|
|000003a0| 72 69 70 74 20 63 61 6e | 20 62 65 20 6f 66 20 61 |ript can| be of a|
|000003b0| 20 68 65 6c 70 0d 2d 2d | 20 74 6f 20 79 6f 75 20 | help.--| to you |
|000003c0| 77 68 6f 20 77 61 74 6e | 74 20 74 6f 20 63 6f 70 |who watn|t to cop|
|000003d0| 79 20 74 68 65 20 63 72 | 65 61 74 69 6f 6e 20 64 |y the cr|eation d|
|000003e0| 61 74 65 20 74 6f 20 74 | 68 65 20 6d 6f 64 69 66 |ate to t|he modif|
|000003f0| 69 63 61 74 69 6f 6e 20 | 64 61 74 65 2e 0d 0d 0d |ication |date....|
|00000400| 74 65 6c 6c 20 6d 65 20 | 74 6f 20 6f 70 65 6e 20 |tell me |to open |
|00000410| 7b 28 63 68 6f 6f 73 65 | 20 66 6f 6c 64 65 72 29 |{(choose| folder)|
|00000420| 7d 0d 2d 2d 74 65 6c 6c | 20 6d 65 20 74 6f 20 6f |}.--tell| me to o|
|00000430| 70 65 6e 20 7b 28 63 68 | 6f 6f 73 65 20 66 69 6c |pen {(ch|oose fil|
|00000440| 65 29 7d 0d 0d 6f 6e 20 | 6f 70 65 6e 20 28 64 6f |e)}..on |open (do|
|00000450| 63 4c 69 73 74 29 0d 09 | 74 65 6c 6c 20 61 70 70 |cList)..|tell app|
|00000460| 6c 69 63 61 74 69 6f 6e | 20 22 74 6f 75 63 68 4d |lication| "touchM|
|00000470| 65 22 0d 09 09 61 63 74 | 69 76 61 74 65 0d 09 09 |e"...act|ivate...|
|00000480| 73 65 74 20 70 72 65 66 | 73 20 63 72 65 61 74 69 |set pref|s creati|
|00000490| 6f 6e 20 74 6f 20 7b 65 | 6e 61 62 6c 65 64 3a 66 |on to {e|nabled:f|
|000004a0| 61 6c 73 65 7d 0d 09 09 | 73 65 74 20 70 72 65 66 |alse}...|set pref|
|000004b0| 73 20 6d 6f 64 69 66 69 | 63 61 74 69 6f 6e 20 74 |s modifi|cation t|
|000004c0| 6f 20 7b 65 6e 61 62 6c | 65 64 3a 74 72 75 65 2c |o {enabl|ed:true,|
|000004d0| 20 66 6c 61 67 3a 65 78 | 61 63 74 7d 0d 09 65 6e | flag:ex|act}..en|
|000004e0| 64 20 74 65 6c 6c 0d 09 | 2d 2d 0d 09 72 65 70 65 |d tell..|--..repe|
|000004f0| 61 74 20 77 69 74 68 20 | 74 68 65 49 74 65 6d 20 |at with |theItem |
|00000500| 69 6e 20 74 68 65 20 64 | 6f 63 4c 69 73 74 0d 09 |in the d|ocList..|
|00000510| 09 69 66 20 74 68 65 20 | 66 6f 6c 64 65 72 20 6f |.if the |folder o|
|00000520| 66 20 28 69 6e 66 6f 20 | 66 6f 72 20 74 68 65 49 |f (info |for theI|
|00000530| 74 65 6d 29 20 69 73 20 | 74 72 75 65 20 74 68 65 |tem) is |true the|
|00000540| 6e 0d 09 09 09 72 65 70 | 65 61 74 20 77 69 74 68 |n....rep|eat with|
|00000550| 20 74 68 65 46 69 6c 65 | 6e 61 6d 65 20 69 6e 20 | theFile|name in |
|00000560| 74 68 65 20 6c 69 73 74 | 20 66 6f 6c 64 65 72 20 |the list| folder |
|00000570| 74 68 65 49 74 65 6d 0d | 09 09 09 09 74 65 6c 6c |theItem.|....tell|
|00000580| 20 6d 65 20 74 6f 20 53 | 65 74 44 61 74 65 54 69 | me to S|etDateTi|
|00000590| 6d 65 53 74 61 6d 70 20 | 62 79 20 28 61 6c 69 61 |meStamp |by (alia|
|000005a0| 73 20 28 28 74 68 65 49 | 74 65 6d 20 61 73 20 73 |s ((theI|tem as s|
|000005b0| 74 72 69 6e 67 29 20 26 | 20 74 68 65 46 69 6c 65 |tring) &| theFile|
|000005c0| 6e 61 6d 65 29 29 0d 09 | 09 09 65 6e 64 20 72 65 |name))..|..end re|
|000005d0| 70 65 61 74 0d 09 09 65 | 6c 73 65 0d 09 09 09 74 |peat...e|lse....t|
|000005e0| 65 6c 6c 20 6d 65 20 74 | 6f 20 53 65 74 44 61 74 |ell me t|o SetDat|
|000005f0| 65 54 69 6d 65 53 74 61 | 6d 70 20 62 79 20 74 68 |eTimeSta|mp by th|
|00000600| 65 49 74 65 6d 0d 09 09 | 65 6e 64 20 69 66 0d 09 |eItem...|end if..|
|00000610| 65 6e 64 20 72 65 70 65 | 61 74 0d 09 2d 2d 0d 09 |end repe|at..--..|
|00000620| 74 65 6c 6c 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |tell app|lication|
|00000630| 20 22 74 6f 75 63 68 4d | 65 22 0d 09 09 71 75 69 | "touchM|e"...qui|
|00000640| 74 0d 09 65 6e 64 20 74 | 65 6c 6c 0d 65 6e 64 20 |t..end t|ell.end |
|00000650| 6f 70 65 6e 0d 0d 74 6f | 20 53 65 74 44 61 74 65 |open..to| SetDate|
|00000660| 54 69 6d 65 53 74 61 6d | 70 20 62 79 20 74 68 65 |TimeStam|p by the|
|00000670| 46 69 6c 65 0d 09 74 65 | 6c 6c 20 61 70 70 6c 69 |File..te|ll appli|
|00000680| 63 61 74 69 6f 6e 20 22 | 74 6f 75 63 68 4d 65 22 |cation "|touchMe"|
|00000690| 0d 09 09 73 65 74 20 74 | 68 65 53 74 61 6d 70 20 |...set t|heStamp |
|000006a0| 74 6f 20 66 65 74 63 68 | 20 74 68 65 46 69 6c 65 |to fetch| theFile|
|000006b0| 0d 09 09 73 65 74 20 74 | 68 65 44 61 74 65 20 74 |...set t|heDate t|
|000006c0| 6f 20 74 68 65 20 63 72 | 65 61 74 69 6f 6e 20 64 |o the cr|eation d|
|000006d0| 61 74 65 20 6f 66 20 74 | 68 65 53 74 61 6d 70 0d |ate of t|heStamp.|
|000006e0| 09 09 2d 2d 20 73 65 74 | 20 74 68 65 44 61 74 65 |..-- set| theDate|
|000006f0| 20 74 6f 20 74 68 65 20 | 6d 6f 64 69 66 69 63 61 | to the |modifica|
|00000700| 74 69 6f 6e 20 64 61 74 | 65 20 6f 66 20 74 68 65 |tion dat|e of the|
|00000710| 53 74 61 6d 70 0d 09 09 | 73 65 74 20 70 72 65 66 |Stamp...|set pref|
|00000720| 73 20 6d 6f 64 69 66 69 | 63 61 74 69 6f 6e 20 74 |s modifi|cation t|
|00000730| 6f 20 7b 76 61 6c 75 65 | 3a 74 68 65 44 61 74 65 |o {value|:theDate|
|00000740| 7d 0d 09 09 74 6f 75 63 | 68 20 74 68 65 46 69 6c |}...touc|h theFil|
|00000750| 65 0d 09 65 6e 64 20 74 | 65 6c 6c 0d 65 6e 64 20 |e..end t|ell.end |
|00000760| 53 65 74 44 61 74 65 54 | 69 6d 65 53 74 61 6d 70 |SetDateT|imeStamp|
|00000770| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 01 00 00 00 01 18 | 00 00 00 18 00 00 00 32 |........|.......2|
|00000790| 00 00 02 f2 00 00 00 00 | 00 00 00 01 ac 79 ab 6a |........|.....y.j|
|000007a0| 00 00 00 30 00 00 00 00 | 00 00 00 3c 00 00 03 74 |...0....|...<...t|
|000007b0| 08 73 61 6d 70 6c 65 20 | 36 6d 02 00 00 00 54 45 |.sample |6m....TE|
|000007c0| 58 54 54 6f 79 53 01 00 | 00 34 00 c0 00 00 00 00 |XTToyS..|.4......|
|000007d0| 00 00 54 45 58 54 54 6f | 79 53 01 00 00 34 00 c0 |..TEXTTo|yS...4..|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 ae 25 0e 6e 00 00 | 06 f1 00 00 01 4a 45 6a |...%.n..|.....JEj|
|00000800| 00 00 00 01 00 00 02 f2 | 80 00 00 00 00 00 00 00 |........|........|
|00000810| 4e 56 fe a4 48 e7 1f 38 | 3c 2e 00 08 97 cb 78 00 |NV..H..8|<.....x.|
|00000820| 20 0d 2a 78 09 04 2e 00 | 41 ee fe a4 41 e8 00 ce | .*x....|A...A...|
|00000830| 20 08 c1 8d 48 6e ff 6e | a8 6e 48 6e ff 84 a8 6f | ...Hn.n|.nHn...o|
|00000840| 76 00 55 4f 48 78 02 8e | 48 78 00 01 a8 5d 10 1f |v.UOHx..|Hx...]..|
|00000850| 66 3e 59 4f 2e b8 08 a4 | 20 5f 28 48 20 54 20 68 |f>YO....| _(H T h|
|00000860| 00 16 20 50 36 28 00 20 | 70 32 a3 1e 26 48 20 0b |.. P6(. |p2..&H .|
|00000870| 67 20 20 54 20 68 00 16 | 20 50 27 68 00 16 00 16 |g  T h..| P'h....|
|00000880| 00 00 00 14 00 28 00 04 | 01 9d 02 6a 00 28 00 04 |.....(..|...j.(..|
|00000890| 02 6d 02 6a 00 00 00 01 | 00 00 01 00 00 00 01 18 |.m.j....|........|
|000008a0| 00 00 00 18 00 00 00 32 | 02 51 cd 28 31 f2 00 00 |.......2|.Q.(1...|
|000008b0| 00 1c 00 32 00 00 57 50 | 6f 73 00 00 00 0a 00 80 |...2..WP|os......|
|000008c0| ff ff 00 00 00 00 02 51 | cc c0 00 00 00 00 00 00 |.......Q|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+